home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 43
/
Amiga Format CD43 (1999)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-09].iso
/
-serious-
/
graphics
/
fxforge
/
pinwheel e
< prev
next >
Wrap
Text File
|
1999-06-15
|
830b
|
26 lines
Category: Filter Factory Gallery L
Title: Pinwheel E...
Author: Greg Schorno
Copyright: Copyright © Greg Schorno
ctl[0]: Spokes 1
ctl[1]: Spokes 2
ctl[2]: Operation
ctl[3]: Twist 1
ctl[4]: Twist 2
ctl[5]: Red
ctl[6]:Green
ctl[7]: Blue
val[0]: 232
val[1]: 205
val[2]: 203
val[3]: 230
val[4]: 172
val[5]: 248
val[6]: 84
val[7]: 135
R:put(m*m/(M*M/256),8),put((d+(val(3,-get(8),get(8))))*val(0,1,24)%D,0),put((sin(get(0)))/4,0),put((d+(val(4,-get(8),get(8))))*val(1,1,24)%D,1),put((sin(get(1)))/4,1),scl(ctl(5),64,192,ctl(2)&128?min(get(0),get(1)):get(0)-get(1),ctl(2)&16?max(get(0),get(1)):val(5,get(0),abs(get(1)-get(0))))
G:ctl(2)&64?scl(ctl(6),64,192,min(get(0),get(1)),max(get(0),get(1))):ctl(6)*abs(get(0)-get(1))/128
B:ctl(2)&32?scl(ctl(7),64,192,min(get(0),get(1)),max(get(0),get(1))):ctl(7)*abs(get(0)-get(1))/128
A:a